home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / workbench / boot / czesc_2 / smsrc / sm / sm.h < prev    next >
Text File  |  1996-03-26  |  3KB  |  113 lines
  1. USES Exec, Intuition, utility, Amiga, gadtools, graphics, 
  2.         DiskFont, AmigaDOS, Reqtools, Rexx, Trackdisk, Input, 
  3.         Datatypes, DataTypesClass, CStrConstPtr;
  4.  
  5. TYPE
  6.     pMyNode = ^tMyNode;
  7.     tMyNode = record
  8.         LSK_Node     : tNode; { system node structure }
  9.         LSK_Name     : string[31];
  10.         LSK_Cmd      : Array[0..1] of string[181];
  11.         LSK_Key      : string[2];
  12.         LSK_RexxCmd  : string[180];
  13.         LSK_RexxPort : String[25];
  14.         LSK_Stack,
  15.         LSK_Priority : LongInt;
  16.         LSK_Output   : String[181];
  17.         LSK_ASynch   : Boolean;
  18.         LSK_Quit     : Boolean;
  19.         LSK_NewShell : Boolean;
  20.         LSK_ShellFrom,
  21.         LSK_ShellWin : String[80];
  22.     end;
  23.     
  24.     tPointerArray = Array[0..36] of Word;
  25.     pPointerArray = ^tPointerArray;
  26.     
  27. CONST
  28.     
  29.  { size labels } 
  30.  
  31.     S_WB_T  = 1; { WB borders, top          }
  32.     S_WB_L  = 2; { left,                    }
  33.     S_WB_R  = 3; { right,                   }
  34.     S_WB_B  = 4; { bottom.                  }
  35.     GAD_W  = 5;  { width of a gadget        }
  36.     GAD_H  = 6;  { height of a gadget       }
  37.     TBS = 6;     { Size of window title bar }
  38.     
  39.  
  40. {defaut path and name of our prefs file}
  41.  
  42.     PREFSNAME  : string[80] = 'Startup-Menu.prefs';
  43.     PREFSDIRH  : string[80] = 'S:';
  44.     vi         : pointer = NIL;
  45.     TheWindow  : pWindow = NIL;
  46.     TheScreen  : pScreen = NIL;
  47.     MyPens : Array[0..8] of Word = ($FFFF); { Get default }
  48.     FORCEQ    : Boolean = False;
  49.     RememberKey: pRemember = NIL;
  50.     dto : Pointer = NIL;
  51.     ZoomS : Array[0..3] of Integer = (-1,-1,150,0);
  52.  
  53.          
  54. Var
  55.     Window2 : pWindow;
  56.     GList, pGad  : pGadget;
  57.     Gadgetflags  : tNewGadget;
  58.     MyTextFont   : pTextFont;
  59.     Sizes        : Array[1..6] Of Integer;
  60.     WindowIDCMP,
  61.     Base         : LONG;
  62.     CurrentList  : pList;
  63.     tmpstr       : string;
  64.     DummyReq     : tRequester;
  65.     waitpointer  : pPointerArray;
  66.     
  67. { Procedures and Functions }
  68.  
  69. Function  ReadConfigFile(FName : string) : Boolean; Forward;
  70. Procedure SendARexxCommand(command, destport : string); Forward;
  71. Function  HandleIDCMP : ShortInt; Forward;
  72. Function  StartCLIProgram(node : pMyNode) : Boolean; Forward;
  73. Function  Open_Libs : Boolean; Forward;
  74. Procedure Close_Libs; Forward;
  75. Procedure Close_Screen; Forward;
  76. Function  Open_Screen : pScreen; Forward;
  77. Function  GetWitComment : String; Forward;
  78. Procedure ScrollText(RPort : pRastPort;  L, B, W, H : Long; 
  79.     VAR count : integer; txt : string); Forward;
  80. Procedure Main; Forward;
  81. Procedure ToggleClick(state : Boolean); Forward;
  82. Procedure Close_Window; Forward;
  83. Function  UnderIfThere(s : string; ch : char):string; Forward;
  84. Procedure RefreshWin; Forward;
  85. Function  open_window : pWindow; Forward;
  86. Procedure DisableWindow(w : pWindow; req : pRequester;  waitpointer : pointer); Forward;
  87. Procedure EnableWindow(w : pWindow; req : pRequester; IDCMP : LONG); Forward;
  88. Function  UpperStr(S : String) : String; Forward;
  89. Procedure ToggleWildStar(State : Boolean); Forward;
  90. Procedure TogglePubFlags(shang, poppub : Boolean); Forward;
  91. Function  OpenDTWin(fn : STRPTR) : pWindow; Forward;
  92. Procedure CloseDTWin(VAR win : pWindow); Forward;
  93.  
  94.  
  95. { include files }
  96.  
  97. {$I Version.h      }
  98.                    {sI Reg.PAS        }
  99. {$I Config.PAS     }
  100. {$I ARexx.PAS      }
  101. {$I LogFile.PAS    }
  102. {$I IDCMP.PAS      }
  103. {$I LaunchProgram.PAS }
  104. {$I Library.PAS    }
  105. {$I Screen.PAS     }
  106. {$I ScrollText.PAS }
  107. {$I StopClick.PAS  }
  108. {$I Window.PAS     }
  109. {$I WildStar.PAS   }
  110. {$I PubFlags.PAS   }
  111. {$I Window_DT.PAS  }
  112.  
  113.